ink rgb(0,255,0),0
box 1,1,101,101
get image 1,0,0,101,101
position camera 0,300,0
autocam off
make matrix 1,1000,1000,25,25
prepare matrix texture 1,1,1,1
fill matrix 1,rnd(50),1
position matrix 1,0,0,0
set matrix height 1,10,10,200
set matrix normal 1, 5, 5, 30.0, 20.0, 10.0
ink rgb(255,255,255),0
update matrix 1
while inkey$()<>"x"
set cursor 0,0
print "press 2 to set matrix wireframe on"
if scancode()=3 then set matrix wireframe on 1
print "press 3 to set matrix wireframe off"
if scancode()=4 then set matrix wireframe off 1
print "wireframe:";matrix wireframe state(1)
x#=x#+mousemovey()
y#=y#+mousemovex()
rotate camera x#,y#,0
update matrix 1
endwhile
if matrix exist(1)=1 then delete matrix 1
end
